VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsErrLog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Sub WriteLog(ByVal vErr As String, ByVal vDes As String)
    If Sys_rsErrLog.State <> adStateOpen Then
        Exit Sub
    End If
    
    If Sys_rsErrLog.RecordCount <= 0 Then
        Exit Sub
    End If
    
    Dim cls1 As clsFile
    Set cls1 = New clsFile
    
    
    Sys_rsErrLog.Filter = " B_Err='" & vErr & "'"
    If Sys_rsErrLog.RecordCount > 0 Then
        cls1.WriteFileContent Sys_rsErrLog!B_FileName, vDes
    End If
End Sub
